﻿''' <summary>
''' 总账数据表-金额
''' 对应表-T_GeneralMoneyLedger
''' 其字段与余额表完全一致，不同的是余额表
''' 中记录不包含全零值，即没有任何发生额的记录
''' </summary>
Public Class ClsTGeneralMoneyLedger

    Private m_GeneralId As Integer
    Private m_WorkPeriod As String
    Private m_AcctCode As String
    Private m_AcctLevel As Integer
    Private m_IfLastLevel As Integer
    Private m_AcctName As String
    Private m_Year As Decimal
    Private m_BeginBalance As Decimal
    Private m_CreditSum As Decimal
    Private m_CreditTotal As Decimal
    Private m_DebitSum As Decimal
    Private m_DebitTotal As Decimal
    Private m_Balance As Decimal
    Private m_BalanceDirection As String

    Public Property GeneralId As Integer
        Get
            Return m_GeneralId
        End Get
        Set(value As Integer)
            m_GeneralId = value
        End Set
    End Property

    Public Property WorkPeriod As String
        Get
            Return m_WorkPeriod
        End Get
        Set(value As String)
            m_WorkPeriod = value
        End Set
    End Property

    Public Property AcctCode As String
        Get
            Return m_AcctCode
        End Get
        Set(value As String)
            m_AcctCode = value
        End Set
    End Property

    Public Property AcctLevel As Integer
        Get
            Return m_AcctLevel
        End Get
        Set(value As Integer)
            m_AcctLevel = value
        End Set
    End Property

    Public Property IfLastLevel As Integer
        Get
            Return m_IfLastLevel
        End Get
        Set(value As Integer)
            m_IfLastLevel = value
        End Set
    End Property

    Public Property AcctName As String
        Get
            Return m_AcctName
        End Get
        Set(value As String)
            m_AcctName = value
        End Set
    End Property

    Public Property Year As Decimal
        Get
            Return m_Year
        End Get
        Set(value As Decimal)
            m_Year = value
        End Set
    End Property

    Public Property BeginBalance As Decimal
        Get
            Return m_BeginBalance
        End Get
        Set(value As Decimal)
            m_BeginBalance = value
        End Set
    End Property

    Public Property CreditSum As Decimal
        Get
            Return m_CreditSum
        End Get
        Set(value As Decimal)
            m_CreditSum = value
        End Set
    End Property

    Public Property CreditTotal As Decimal
        Get
            Return m_CreditTotal
        End Get
        Set(value As Decimal)
            m_CreditTotal = value
        End Set
    End Property

    Public Property DebitSum As Decimal
        Get
            Return m_DebitSum
        End Get
        Set(value As Decimal)
            m_DebitSum = value
        End Set
    End Property

    Public Property DebitTotal As Decimal
        Get
            Return m_DebitTotal
        End Get
        Set(value As Decimal)
            m_DebitTotal = value
        End Set
    End Property

    Public Property Balance As Decimal
        Get
            Return m_Balance
        End Get
        Set(value As Decimal)
            m_Balance = value
        End Set
    End Property

    Public Property BalanceDirection As String
        Get
            Return m_BalanceDirection
        End Get
        Set(value As String)
            m_BalanceDirection = value
        End Set
    End Property
End Class
